home *** CD-ROM | disk | FTP | other *** search
/ B Soft 6 / B-Soft_6_19xx_Maik__Mike_de_Side_B.d64 / allein gegen die (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  781b  |  17 lines
  1. 1 ifa=0thena=1:poke808,225:poke53280,0:poke53281,0:gosub6
  2. 2 ifa=1thena=2:load"bse 9",8,1
  3. 3 readpc:sys57812"bse 9 - pic",8,1:poke53280,1:poke53281,1:poke780,0:sys65493:poke1000,8
  4. 4 sys4096*5:poke198,0:wait198,1:poke53265,27:poke53270,200:poke53272,21:poke53281,1
  5. 5 gosub30:print"[147]":load"bse 9 - gme",8:data49,50,51,52,53,54,65
  6. 6 gosub21:print"[147]","[157][157][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]":print"        [194][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201][146][194]":print"        [194][194][176][195][195][174] [176][195][195][178][195][195][178][195][195][178][195][195][195][174][194][146][194]":print"        [194][194][194][195] [171][195][179] [195][179]  [194] [195][179]   [194][194][146][194]":print"        [194][202][179] [195][179] [194]  [194][176][174][194]  [171][174] [176][177][203][146][194]":print"        [194][213][179][195] [171][195][219][195] [194][173][189][194] [176][189][194] [171][195][201][146][194]"
  7. 8 print"        [194][194][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174][194][146][194]"
  8. 9 print"        [194][202][179]chaos-pd-software[171][203][146][194]"
  9. 10 print"        [194] [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189] [146][194]"
  10. 11 print"        [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203][151]":gosub21:gosub19:print"[152]":gosub19
  11. 12 print"[155]":gosub19:print""
  12. 19 print,"[145][145]   praesentiert:"
  13. 20 forx=1to50:next:return
  14. 21 forx=1to1000:next:return
  15. 30 geta$:ifa$=""then30
  16. 31 return
  17.